PAGE X CHAIN M SRC CHAIN NODE OPERATION SYSTEM EXERCISER 




.TITLE 

CHAIN MODE OPERATION SYSTEM EXERCISER 



77-27-71 




/DIGITAL EQUIPMENT CORPORATION; MAYNARD, MASS, 



/ED HILTON 




, ABS 


01400 


,i,OC 1400 


000560 

U P H E F X ? 5 6 0 



0 0 0 4 6 0 

T S I X B T r 4 6 0 



700312 

K R R = 7 0 0 3 1 2 



700301 

K S P = 7 0 0 3 0 1 



700402 

T C F = 7 0 0 4 0 2 



700401 

TSF=700401 



705512 

RPL=705512 



000514 

CRUF=514 



0 0 056 5 

D I R E C T = 5 6 5 



707545 

DTEA=707545 



707544 

OTXA=707544 



707561 

DTFF=707561 



707552 

DTRA=707552 



7075/2 

PTRB=707572 



707 601 

DTOF=707601 



700004 

CUOF = 700004 



000522 

TYP0NES522 



000253 

W A I T = 2 5 3 



000120 

GET MON =120 



000533 

ER 016=533 



000004 

SAVAC=4 



000540 

PSOD-540 



707702 

EEM= 707702 



707764 

EBA=707764 



735000 

CLXS736000 



736000 

CLLR=736000 



724000 

P X A = 7 2 4 0 0 0 



730000 

P L A = 7 3 0 0 0 0 



722000 

P A l, = 72200 0 



721000 

P A X = 7 2 1 0 0 0 


01400 

703302 

f 

BEGIN CAF 


01401 

741000 

SKP 


01402 

602333 

JMP 

type: j /interface between resident tty routine 

01403 

707764 

EDA 


0 14 0 4 

707702 

EEM 


01405 

203627 

LAC 

(JMP SYS I NT 

01406 

0400.03 

DAC 

3 ‘ 

01407 

777777 

LAW 

”1 

01410 

040100 

DAC 

100 /SET CHAIN MOPE INDICATOR 

01411 

735000 

CLX 


01412 

736000 

CLLR 


01413 

100514 

JMS 

CRLF 

01414 

100560 

JMS 

UPREFX 

01415 

2036 3 0 

LAC 

(STMSG-1 /CHAIN MODE OPERATION MESSAGE 

014 1 6 

100460 

JMS 

TSIXBT 



.eject 




o 





u 

o 

PACK 2 

CHAJNM 

SRC CHAIN MODE 

OPERATION SYSTEM EXERCISER 

o 

o 

0143,7 

203631 

0EGIN1 LAC 

(MEMS£2»1 +400000 

o 


01420 

100460 

JMS 

TSIX8T 


o 

01421 

100233 

JMS 

WAIT /WAIT FOR BANK CHARACTER 




/ 

o 


01422 

543632 

SAD 

!303 /1"7 VALID 


o 

01423 

600120 

JMP 

GEfMON 

o 

31424 

d 4 3 6 3 3 

SAD 

(215 /CHECK FOR TERMINATOR 


01423 

601430 

JMP 

i +3 



014 26 

042110 

DAC 

PRTERR 

o 

o 

01427 

601421 

JMP 

/ 

JMS 

BEG I Nl + 2 


01430 

100314 

chlf 

o 

o 

01431 

202110 

LAC 

PRTERR 


01432 

343634 

TAD 

(*261 


o 

01433 

741100 

SPA 


o 

01434 

601417 

JMP 

BEGIN! /LESS THAN 261 ASCII 


01433 

343635 

TAD 

( *7 


o 

01436 

740100 

SMA 


o 

01437 

601417 

JMP 

BEGINl /GREATER THAN 267 ASCII 

<10 


0144 0 

343636 

TAP 


o 

01441 

100333 

JMS 

LRQT6 

LRQT6 

o 

01442 

120333 

JMS 


014 4 3 

043035 

DAC 

CLDADR 


o 

01444 

043045 

DAC 

SLOAJR /SYSTEM LOAD ADDRESS 

o 

014 4 3 

243637 

XQR 

( 7777 


01446 

0401 0 1 

DAC 

/ 

/NOW CHECK FOR 

/ 

LAS 

101 


o 

01447 

750004 

api wanted and present 

o 

o 

01430 

503640 

and 

(400000 

o 


014 31 

740100 

SMA 




01432 

601463 

JMP 

CNTINU 


0 

01433 

7 0 550 4 

ISA 

o 


01434 

705501 

SPI 




01433 

601462 

JMP 



o 

014 36 

705314 

ISA+10 


o 


01437 

203640 

LAC 

(400000 


o 

01460 

043063 

DAC 

APJ ON 

o 

21461 

6 0 1463 

JMP 

CNTINU 


01462 

101742 

JMS 

, EJECT 

APINON 


o 





o 

o 





o 

o 





o 

o 





o 

o 





0 

o 





o 


o 






LJ 

o 

PAGE 3 

CHAINM 

SRC CHAIN MOPE 

OPERATION 

SYSTEM EXERCISER 

o 

o 



/NOW GET THE PROGRAMS AND UOAD THEM ONE AT A TIME 
/ 

0 

o 

0 % 4 6 3 
01464 

203641 

040011 

CnTINU UAC 
OAC 

(DIRECT* 

11 

1 

o 


01465 

220011 

LAC<> 

11 

/GET THE TITLE 


o 

014 6 6 

741200 

SNA 



o 

014 6 7 

602500 

JMP 

NOTHIN 



01470 

7777/7 

LAW 

*1' 




01471 

340011 

TAD 

U 


0 

o 

01472 

040011 

DAC 

ii 



01473 

220011 

NXTPRG UAC# 

u 




0,1474 

741200 

SNA 



o 

o 

01475 

6024/4 

JMP 

EDMSG 



01476 

043040 

DAC 

A 



o 

21477 

220011 

DAC# 

11 


o 

21500 

043041 

OAC 

B " 



01501 

220011 

LAC* 

11 



o 

01502 

043043 

DAC 

ST8LK 


o 

01503 

220011 

LAC# 

11 



01504 

043044 

DAC 

TOTWC 




01505 

102361 

JMS 

LOAD 


o 

o 



/ 




01506 

203061 

LAC 

SLINK 



o 

01507 

343636 

TAD 

(10 


o 

01510 

043626 

DAC 

SWMASK# 



01511 

223626 

LAC* 

SWMASK 

/GET CONSOLE SWITCH MASK 



01512 

043626 

DAC 

SWMASK 


o 

o 

01513 

750004 

LAS 




01514 

503626 

AND 

SWMASK 




01515 

740200 

S2 A 


/ABORT? 

o 

o 

01516 

601473 

JMP 

/ 

LAC 

nxtprg 

/YES 


01517 

203642 

C8GNMS0* 

1*400000 /RUN 

o 

o 

01520 

100 4 6&) 

JMS 

tsixb J 



01521 

203643 

LAC 

(A??l 



o 

01522 

100460 

JMS 

tsixbt 


o 

01523 

100514 

JMS 

CRLF 



01524 

143034 

OHM 

TEX I T 






,EJECT 




o 






o 

o 






o 

o 






o 

o 






o 

o 






o 

o 






o 

o 






o 



o 


o 


o 
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CHA1NM 

SRC CHAIN MODE 

operation 

SYSTEM EXERCISER 

o 



/after program 

is LOADED, 

get UQDSW and DETERMINE IF 




/TEST JS A CP 

TEST OR AN 

IiO TEST, IF IT IS AN 1,0, TEST 




/CHECK FOR AN 

API TRAP ADDRESS AMD SET UP THE ENTRY 

o 



/ 




01525 

223061 

LAC* 

SLINK 



01526 

04305/ 

DAC 

uousw 


o 

01527 

740100 

SMA 




01530 

601603 

JMP 

P I ON 

/C,P, TEST 


01531 

740010 

RAL 


/lit), TEST 

o 

01532 

740100 

SMA 




0,1533 

601603 

JMP 

P ION 

/NO API, USES PROGRAM INTERRUPT 


01534 

102573 

JMS 

SUAPIR 

/USES API, SET UP API ERROR TRAP 

o 

0153 5 

203063 

U AC 

A P J 0 N 



01536 

740100 

SMA 




01537 

601603 

JMP 

P I ON 

/USES API BUT OPERATOR DOESN'T WANT IT, 

o 

01540 

20305/ 

LAC 

UOOSW 

/DESIRE API 


01541 

503644 

AND 

(3/ 



01542 

343645 

TAD 

(40 


o 

01543 

043060 

DAC 

ENTRY 

/STORE API ENTRY PORT 


01544 

203646 

UAC 

(4 



01545 

343061 

TAD 

SLINK 


o 

01546 

043062 

DAC 

ltemp 

/LTEMP CONTAINS ADDRESS OF SERVICE ADDRESS 


01547 

223062 

LAC* 

LTEMP 



01550 

043065 

DAC 

APISRV 


o 

01551 

203647 

LAC 

( APISRV 



01552 

343066 

TAD 

APIGO 

/GET JMS# 0 


01553 

063060 

PAC<* 

entry 

/THE ENTRY ADDRESS NOW CONTAINS JMS« APJSRV 

o 



/ 




01554 

203057 

LAC 

UUDSW 



01555 

503650 

AND 

( 4000) 


o 

0155 6 

741200 

SNA 




01557 

601603 

JMP 

P I ON 



01560 

203651 

LAC 

u> 


o 

01561 

043621 

DAC 

apiptr# 



01562 

203061 

API,1 LAC 

SLINK 



01563 

343621 

TAD 

APIPTK 


o 

01564 

043057 

DAC 

UUDSW 



01565 

223057 

LAC# 

UODSW 



01566 

503644 

AND 

(37 


o 

01567 

741200 

SNA 




01570 

601603 

JMP 

P l ON 



01571 

343645 

TAD 

(40) 



01572 

043060 

DAC 

entry 



01573 

203647 

LAC 

(APISRV 



0 157 4 

343652 

TAD 

(APIGD 


o 

01575 

063060 

DAC# 

ENTRY 



01576 

443621 

ISZ 

APIPTN 



01577 

203621 

LAC 

AF I PTH 


o 

01600 

543646 

SAD 

(4) 



01601 

601603 

JMP 

P ION 



01602 

601562 

JMP 

API % % 


o 



.EJECT 




o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 


o 


6 

CHAINM 

SRC CHAIN MODE 

OPERATION SYSTEM 

EXERCISER 



/INITIALISE test and DO to idle 

loop, the idle loop will 



/test 

FOR ERRORS AND FIND OUT WHEN TO EXIT THE TEST AND 



/LOAD 

THE NEXT 
/ 

LAC 

TEST, 


01603 

203653 

P I ON 

(5 


01604 

343061 


TAD 

SLINK 


016 0 5 

043035 


DAC 

LTEMP2 


01606 

223036 


LAC* 

LTEMP2 


0160 7 

043035 


PAC 

LTEMP2 


01610 

777777 


LAW 



01611 

043625 


DAC 

Pi I NO? 

/flag FOR ENTRY to PI SUBROUTINE 

01612 

754000 


CLAICLL 


01613 

123035 


J M 5 * 

LTEMP2 

/GO TO INITIALIZATION OF TEST 

0 1614 

203063 


LAC 

API ON 


01615 

740100 


SNA 



01616 

741000 


SKP 



01617 

705504 


ISA 



01620 

700042 


ION 






.EJECT 




PAGE 


6 CHAW SRC CHAIN MODE OPERATION SYSTEM EXERCISER 


/NOW TEST FOR ERRORS AND SEE WHEN TO LOAD NEXT TEST 


/ 


01621 

203061 


UAC 

SLINK 

01622 

343654 


TAD 

<20 

01623 

043035 


DAC 

L t E M P 2 

01624 

143623 

INJTA 

PZM 

MEMLQC# 

01625 

443623 


ISH 

MEMLOC 

0.1626 

203623 


EAC 

MEMLOC 

01627 

543651 


SAD 

U 

01630 

741000 


SKP 


01631 

740040 


HUT 


01632 

750003 


CIA 


01633 

740200 


SZA 


01634 

740040 


HUT 


01635 

740001 


CM A 


016 3 6 

543655 


SAD 

<777777 

01637 

741000 


SKP 


01643 

740 0 4 0 


HIT 


01641 

243656 


XOR 

<0 

31642 

543655 


SAD 

< 777 77 7 

01643 

741000 


SKP 


01644 

7 4 00 4 0 


HUT 


01645 

343651 


TAD 

U 

01646 

740200 


SZA 


01647 

740043 


HIT 


016 50 

744030 


cm 


01651 

741400 


szu 


01652 

740040 


HUT 


01653 

740032 


CMU 


01654 

740430 


SNU 


31655 

740040 


HUT 


01656 

777777 


LAW 


01657 

543655 


SAD 

<n 

01660 

741000 


SKP 


01661 

740040 


HUT 


01662 

343651 


TAD 

<i 

0166 3 

740200 


SZA 


01664 

740040 


HUT 


01665 

741400 


szu 


01666 

740040 


HUT 


01667 

223035 


LAC* 

LTEMP2 

01670 

741200 


SNA 

01671 

601624 


JMP 

INJTA 


, E 0 E C T 


/THIS IS A BACKGROUND TEST TO RUN DURING I/O 



7 CHAJNM SRC CHAIN MODE OPERATION SYSTEM EXERCISER 


0X672 

043622 

QAC 

£ R N U M W # 

016 73 

54365/ 

SAP 

( *6 

016/4 

602041 

JMP 

PKTOUN 

01675 

543635 

SAP 

( "7 

016/6 

602015 

JMP 

R E I N 1 T * 1 

016/7 

543660 

SAD 

( -?5 

01700 

6017/1 

JMP 

CHECKA 

01701 

543661 

SAD 

(«4 

01702 

602041 

JMP 

PRtPUN 

01703 

750004 

LAS 


01704 

740010 

RAL 


01705 

740100 

SNA 


01706 

601751 

JMP 

/ 

OAF 

CHECK 

01 707 

703302 


01710 

700004 

ClOF 


01711 

7 0 0 0 0 2 

I OF 


01712 

203061 

LAC 

slink 

01710 

343662 

TAD 

(21 

01714 

043036 

DAC 

LtEMP3 

01715 

223036 

LAC# 

LTEMP3 

01716 

740200 

SHA 


01717 

102U0 

JMS 

prterr 

01720 

203061 

LAC 

SLINK 

01721 

343653 

TAD 

(5 

01722 

040011 

DAC 

ii 

01723 

220011 

LAC** 

li 

01724 

043040 

DAC 

A " 

01725 

220011 

LAC** 

11 

01726 

043041 

DAC 

A +4 

01727 

777774 

LAW 

« 4 

01730 

042110 

DAC 

PRTERR 

01731 

203663 

LAC 

( At-1 + 400000 

01732 

100460 

JMS 

TS I XRT 

01733 

102275 

JMS 

SPACE2 

01734 

223061 

LAC# 

SLJNK' 

01735 

100540 

JMS 

PSOD 

01736 

443061 

I S 'i 

SLINK 

01737 

442110 

ISZ 

PRTERR 

01740 

601733 

JMP 

| *95 

01741 

600122 

JMP 

GETMON+2 


.EJECT 


/ERROR CHECK FQR HUT ON ERROR 


/STOP THE WORM) SW0m 


/SET UP COUNTER FQR UQOSW 
/TO U0DSW*3 

/PRINT UODSW 



o 









G 

o 









o 


PAGE a 

CHAJ.MM 

SRC chain MODE 

OPERATION 

SYSTEM EXERCISER 




o 

01742 

000000 

API NON 

0 





o 


01743 

203631 


uc 

U) 





o 

01744 

3 4 31 0 4 


DAC 

ERR N U M 




o 

01743 

143103 


DEM 

ERRNUM+1 





01746 

143063 


DEM 

APION 





o 

01747 

102233 


JMS 

ercall 




o 

01730 

621742 


JMP# 

/ 

I OF 

API MON 




o 

01731 

700002 

CHECK 





o 

01732 

705314 


ISA*10 






01733 

203622 


t, AC 

ERNUMH 






01734 

343635 


SAD 

(«1 




o 

o 

01733 

6017/3 


JMP 

rpterr 

/ERROR AND 1,0, INITIATED 




01736 

203063 


LAC 

apjon' 

/TEST API WANTED PEAG 





0173 7 

740100 


SNA 





o 

o 

0 176 0 

601762 


JMP 

» + 2 





01761 

705304 


ISA 







01762 

700042 


ION 





o 

o 

01763 

203622 


LAC 

ERNUMB 





01764 

543664 


SAD 

( w 2 






01765 

6 0 1 7 7 3 


JMP 

reserv 

/ERROR WITH NO 1,0, STARTED 

i ENTER 

THROUGH 

o 

o 

01766 

343665 


SAD 

Cb3 

/SERVICE ENTRANCE 



o 

01767 

602014 


JMP 

RE I N 1 1 

/ERROR WITH NO 1,0, STARTED, 

/initialization address 

ENTER 

THROUGH 

o 

01770 

602017 


JMP 

/ 

D2M», 

BADERR 





01771 

163033 

checka 

LTEMP2 

/JUST RE=ENTER 



o 

o 

01772 

601776 


JMP 

/ 

, EJECT 

RESERV*! 

/NO ERROR 




o 









o 

o 









o 

o 









o 

o 









o 

o 









o 

o 









o 

o 









o 

o 









o 

o 









o 

o 









o 



o 


o 
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o 

0177*5 

102110 

R PTE R R 

JMS 

PRTERR 


01774 

601624 


JHP 

IlMITA 

o 

01773 

102110 

RESERV 

f 

JMS 

PRTERR 


01776 

203646 


LAC 

(4 

o 

01777 

343061 


TAP 

SUNK 

02000 

043036 


DAC 

LTEMP5 


02001 

223036 


LAC* 

L f £ M P 3 

o 

02002 

043036 


PAC 

L T E M P 3 

02003 

700002 


l OF 



02004 

705514 


ISA*10 


o 

02003 

123036 


JMS* 

LTEMP3 

02006 

203063 


LAC 

apion" 


02007 

740100 


SMA 


02010 

602012 


JHP 

% ^2 

o 

0201:1 

705504 


ISA 



02012 

7P0042 


ION 



02013 

601624 


JHP 

I N J T A 

o 




/ 


02014 

1 0211 0 

RE IN! T 

JMS 

PRTERR 

o 

02013 

203653 


LAC 

( 5 

02016 

6017/7 


JMP 

y 

RESERV+2 


32017 

703302 

6APERR 

CAF 


o 

02020 

700002 


I OF 



32021 

203666 


LAC 

(BAQRH + 400000 

o 

32022 

100460 


JMS 

f S I X B T 

02023 

203653 


LAC 

(5 


02024 

343061 


TAP 

SLINK 


02025 

040012 


DAC 

12 

0 

02026 

220012 


LAC* 

12 


02027 

043040 


DAC 

A ' 


02030 

220012 


LAC* 

12 

o 

02031 

043041 


DAC 

AH 


02032 

203643 


LAC 

(AH 


02033 

10040 0 


JMS 

TSIXBT 

o 

02034 

102275 


JMS 

SPACE2 


02035 

203622 


LAC 

ERNUMB 


02036 

100540 


JMS 

PSOP 

o 

32037 

100514 


JMS 

CRLE 


02040 

601473 


JMP 

NXTPRG 





, EJECT 



O 

O 

O 

O 


O 


o 

I 

o | 

o 

O 

° i 

o 

o 

O 

I 

o i 

O I 

o 

° I 

o 

o 

o 

o 

o 

o 

o 

o ■ 
o 


o 
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02041 

700002 

PRTDUN 

i or 



02042 

703382 


CAF 



02043 

780084 


CL OF 



0 2044 

20306,1 


LAC 

SUNK 

/CHECK FOR ERRORS FIRST 

02(345 

343662 


TAD 



02046 

043036 


DAC 

LTEMP3 


02047 

223036 


t, AC* 

LTEMP3 


02050 

740200 


S2A 


/any ERROR? 

02051 

102110 


JMS 

PRTERR 

/YES 

02052 

700082 


IOF 



02053 

7055 i 4 


I5A+10 



02054 

750084 


UAS 


/CHECK TO SEE IF OPERATOR WANTS DONE MESSAGE 

02055 

742018 


RTL 



02056 

741180 


SPA 



02057 

601473 


JMP 

NXTPRG 

/DON'T PRINT DONE 

02060 

203061 


LAC 

SLINK 


02061 

343653 


TAD 

(5 


02062 

040012 


DAC 

1 2 


02063 

220012 


LAC# 

12 


02064 

0431 8 1 


DAC 

TITA 


02065 

220012 


UAC« 

12 


02066 

043182 


DAC 

TITA+1 


02067 

283667 


LAC 

(f JTA^l+400000 


02070 

100460 


JMS 

TSJXBT 


02071 

102275 


JMS 

SPACE2 


02072 

203678 


LAC 

( DUN”! 


02073 

100460 


JMS 

TSJXBT 


02074 

100514 


JMS 

CKLF 


82075 

601473 


JMP 

NXTPPS 


02076 

042361 

ILWCCD 

y 

DAC 

LOAD 

/JEEEGAE WORD COUNT CODE 

02077 

203671 


LAC 

( JLWCMS«1*400000 

02180 

100468 


JMS 

TSIXBT 


02181 

203672 


UAG 

(TITA^l 


02102 

100460 


JMS 

TSIXBT 


02103 

1022/5 


JMS 

SPACE2 


02104 

202361 


LAC 

LOAD 


02185 

100540 


JMS 

PSOP 


02106 

777770 


LAW 

”10 


02187 

682151 


JMP 

SfCNT 





, EJECT 





o 






G 

o 






o 
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CM A HIM 

SRC CHAIN MOPE: 

OPERATION SYSTEM EXERCISER 


o 

02110 

0000 0 0 

PRTERR 

0 


o 


02111 

753004 


LAS 




02112 

503673 


AND 

< 040000 

o 

o 

02113 

741200 


SNA 



02114 

632123 


vJMP 

PKTERA 



0211 5 

203063 


LAC 

APIQN /OPERATOR DOESN’T WANT USER ERROR MESSAGE 

o 

o 

02116 

740100 


SMA 



02117 

632121 


JMP 

i+2 


0 

02120 

705534 


ISA 


0 

02121 

700042 


ION 



02122 

622113 


JMP# 

PRTERR 


o 

02123 

203674 

PRTERA 

LAC 

(CHI 

o 

02124 

043013 


DAO 

13 


02125 

040014 


DAC 

14 



02126 

203653 


LAC 

(5 

0 

o 

02127 

343061 


TAP 

SLINK 


02130 

040012 


DAC 

12 



02131 

220312 


LAC# 

12 

o 

o 

02132 

043101 


DAC 

T ITA 


02133 

220012 


LAC# 

12 



02134 

043102 


DAC 

T j T A * 1 
(20 

o 

0 

02135 

203654 


LAC 


02136 

343001 


TAD 

SUNK 


- 

02137 

040012 


PAC 

12 


o 

02140 

220012 


LAC# 

12 

o 


02141 

740100 


sma 




02142 

602076 


JMP 

ILWCCP 

o 

o 

02143 

343636 


TAP 

(10 

02144 

740100 


SMA 




02145 

602150 


JMP 

»+3 

o 

o 

02146 

343675 


TAD 

( «10 


32147 

602076 


JMP 

ILWCCP 



02150 

343675 


TAD 

("10 

° 

o 




, EJECT 


o 






o 

o 






O 

o 






o 

o 






o 

o 






o 

o 






o 

o 






o 

o 






o 


PAGE 


12 

CHAINM 

SRC CHAIN MODE 

OPERATION SYSTEM EXERCISER 

02151 

043067 

STCNT 

OAC 

GNT 

02152 

043070 


PAC 

CNT1 

82156 

220012 


LAC* 

12 

02154 

060013 


OAC* 

13 

02155 

443067 


JS2 

CNT 

02156 

602153 


JMP 

i »3 

02157 

163035 


DHM* 

LTEMP2 

02160 

203063 


LAC 

apion' 

02161 

740100 


SMA 


02162 

602165 


JMP 

i *3 

02163 

203640 


LAC 

(400000) 

02164 

705504 


ISA 

02165 

700042 


ION 


02166 

203667 


LAC 

(TITA«l+400000 

02167 

100460 


JMS 

TSIXBT 

02170 

102275 


JMS 

SPACE2 

02171 

220014 


LAC* 

14 

02172 

100540 


JMS 

PSOD 

02173 

443070 


isz 

CNT 1 

02174 

602170 


JMP 

t *4 

02175 

100514 


JMS 

CRLF 

02176 

622110 


JMP* 

prterr 




, EJECT 




13 

CHAIMM 

SRC chain MODE 

OPERATION 

SYSTEM EXERCISER 




/SYSTEM PROGRAM 
/ 

INTERRUPT 

Routine 


021 7 7 

707764 

i 

SYSINT EBA 




02200 

707702 

EEM 




02201 

724000 

PXA 




02202 

043107 

OAC 

INDEXK 



02203 

730000 

PL.A 




02204 

0 4 311 0 

OAC 

UMITR 



02205 

700314 

I ORS 




02206 

043105 

DAC 

ERRNUM+1 



02207 

203625 

LAC 

PI IND 



02210 

543665 

SAD 

< "1 



02211 

741000 

SKP 




02212 

740040 

HLT 


/SECOND ENTRY TO PI SUBROUTINE, 

BAD NEWS { 

02213 

143625 

DZM 

P H N D 

/CLEAR flag BEHIND me 


02214 

203106 

UC 

ERRNUM*! 



02215 

741100 

SPA 




02216 

740040 

HLT 


/PI ENABLE SHOULD BE CLEARED IN 

A PJ ROUTINE 

02217 

742010 

RTL 




02220 

740010 

RAL 




02221 

741110 

SPA I R A U 




02222 

602303 

JMP 

CHKYBD 



02223 

741100 

SPA 




02224 

602316 

JMP 

chtypl 



02225 

223061 

sysio UC# 

SLINK 



02226 

740100 

SMA 




02227 

602240 

JMP 

SYS I OB 



02230 

203061 

LAC 

SLINK 



02231 

343646 

TAD 

(4 



02232 

043037 

DAC 

LTEMP4 



02233 

223037 

LAC# 

LTEMP4 



02234 

043037 

DAC 

LTEMP4 



0 2235 

123037 

JMS® 

LTEMP4 



02236 

741200 

SNA 




02237 

602243 

JMP 

S I OEX 



02240 

2036/6 

SYS I OB LAC 

12) 

/UNIDENTIFIED interrupt 


02241 

043104 

DAC 

ERRNUM 



02242 

602273 

JMP 

MONERR 





, EJECT 






o o 



page; 14 

CHA INM 

SRC CHAIN MODE; 

OPERATION SYSTEM EXERCISER 


o 

02243 

777777 

SIQEX 

LAW 


o 


02244 

043625 


DAC 

PUND /RESET FLAG 


0 

02245 

203110 


LAC 

LIMITN 

o 

02246 

722000 


PAL 



02247 

203107 


LAC 

JNDEXR 


o 

02250 

721000 


PAX 

o 

02251 

200004 


LAC 

SAVAC 


02252 

703344 


D8R 




02253 

700042 


ION 


o 

o 

02254 

620000 


JMP* 

/ 

0 

o 

02255 

000000 

ERCALL 

f 

0 

/SYSTEM ERROR 

o 

02256 

703302 


CAF 



02257 

700002 


I OF 




02260 

203677 


LAC 

<SYSERR«l+400000 

o 

o 

02261 

100460 


JMS 

TSJXBT 


02262 

102275 


JMS 

SPACE2 


o 

02263 

203104 


LAC 

ERRNUM 


02264 

100540 


JMS 

PSOD 

o 


02265 

102275 


JMS 

SPACES 


o 

02266 

203105 


LAC 

ERRNUM*! 


02267 

100540 


JMS 

PSOD 

o 


02270 

143105 


D2M 

EHRNUM+1 


o 

02271 

100514 


JMS 

crlf 


02272. 

622255 


JMP* 

ERCALL 

o 


02273 

102255 

MQNERR 

JMS 

ERCALL 

o 

o 

02274 

602243 


JMP 

/ 

0 

SIOEX' 

0 

02275 

000000 

SRACE2 


o 

02276 

760240 


LAW 

240 


02277 

100522 


JMS 

TYPQNE 



02300 

760240 


LAW 

240 

o 

u 

02301 

100522 


JMS 

TYPQNE 


02302 

622275 


JMP* 

/ 

ksf 

SPACES 


o 

02303 

700301 

chkybo 


o 


02304 

740040 


HU T 

/THIS IS BECAUSE STATUS BIT HIGH BUT NO SKIP 



02305 

700312 


KRB 


o 

o 

02306 

543632 


S AO 

(203 


02307 

602311 


JMP 

» *2 



02310 

602243 


JMP 

SJOEX 


0 




/ 

o 


02311 

707552 


PTRA 




02312 

503700 


AND 

(020000 


o 

02313 

707544 


DTXA 


o 


02314 

02315 

700004 

600120 


clof 

JMP 

GETMQN 


o 




.EJECT 


o 


o o 


o 


o 



o 


o 


o 

PAGE IS CHAINM SRC CHAIN MODE OPERATION SYSTEM EXERCISER 


o 

■02316 

700401 

CHTYPE 

TSF 




023 17 

740040 


HIT 


/STATUS BIT 

o 

02320 

700402 


TCF 


02321 

203034 


LAC 

TEXIT 



02322 

543655 


SAD 



o 

02323 

6 0 2 3 3 1 


JMP 

CHT f 1 


02324 

740200 


SZA 




02325 

740040 


HIT 



o 

02326 

777776 


LAW 

»2 


02327 

043034 


DAC 

TEXIT 



02330 

602243 


JMP 

/ 

OHM 

SIOEX 


o 

02331 

143034 

CHT 1 1 

TEXIT 



02332 

602243 


JMP 

/ 

1 OF 

SIOEX 


o 

02333 

700002 

TYPEI 




02334 

203034 


LAC 

TEX J T 



02335 

543664 


SAP 

Cs2) 


o 

02336 

602356 


JMP 

TYPE 1 1 



02337 

740200 


SZ A 




02340 

740040 


HIT 



o 

02341 

777777 


LAW 




02342 

043034 


DAC 

TEXIT 



0 23 4 3 

700042 


ION 



o 

02344 

202334 


LAC 

TYPE I *1 



02345 

043067 


DAC 

QNT 



0 23 4 6 

203034 


LAC 

TEXIT 


0 

02347 

741200 


SNA 




02350 

620522 


JMP* 

TYPONE 



02351 

443067 


ISZ 

CNT 


o 

02352 

602346 


JMP 

I w 4 



02353 

700401 


T$F 




02354 

740040 


HUT 



o 

02355 

620522 


JMP* 

TYPONE 



02356 

143034 

TYPE 1 1 

OZM 

TExrr 



02357 

700042 


ION 



o 

02360 

620522 


JMP* 

, EJECT 

TYPONE 



O 


O 

O 

O 

O 

o 


o 

o 

HIGH BUT NO SKIP 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


chain mode, operation SYSTEM EXERCISER 


E 16 CHA1NM SRC 


/THIS IS THE LOADER PROGRAM, IT LOADS A PROGRAM INTO 
/THE BANK SPECIFIED BY THE 
/ 


02361 

000000 

LOAD 0 


02362 

20363/ 

LAC 

( 7777 ) 

02363 

043624 

DAC 

PGQRBK# 

02364 

102510 

JMS 

RLAQBK 

02365 

143046 

PZM 

CHKSUM 

02366 

102527 

JMS 

GETWRU 

02367 

102541 

JMS 

WOPAJH 

02370 

102527 

LOADA JMS 

GLTWRU 

02371 

04304/ 

DAC 

CNTWD1 

02372 

503/01 

AND 

(77 

02373 

043051 

DAC 

CNTWD3 

023/4 

20304/ 

LAC 

CNTWD1 

02375 

102503 

JMS 

RR0T6 

02376 

04304/ 

DAC 

C N T W D 1 
(77 

023/7 

50370.1 

AND 

02400 

043050 

DAC 

CNTWD2 

02401 

20304/ 

LAC 

CNTWDi 

02402 

1025D3 

JMS 

RHQT6 

02403 

503/01 

AND 

(77 

02404 

102414 

JMS 

INTPRT 
Q N T N D 2 

02405 

203050 

LAC 

02406 

102414 

JMS 

INTPRt 

0240 7 

203051 

LAC 

CNTWD3 

02410 

102414 

JMS 

INTPRT 

02411 

443052 

isz 

WQCNTR 

02412 

6023/0 

JMP 

LOADA 

02413 

602366 

JMP 

.EJECT 

L0ADAb2 


OPERATOR 


/GET THE FIRST WORD OF THE PROGRAM 
/IT HAS TO BE A WORD PAIR COUNTER 


/INTERPRET THE CONTROL WORD 
/INTERPRET THE SECOND WORD 
/INTERPRET THE THJRO WORD 
/GET A NEW CONTROL WORD 



E 17 CHAINM SRc CHAIN NODE OPERATION SYSTEM EXERCISER 

/INTERPRET THE INDIVIDUAL WORDS AND SEE HOW TO HANDLE THE 




/ASSOC! 

AT£D 

/ 

DATA WORD, 


02414 

000000 

JNTPRT 

( 

0 



02415 

543676 


SAD 

<2 


02416 

602435 


J M P 

LPADO 

/LOAD ADDRESS 

02417 

543702 


SAD 

<3 


02420 

602441 


JMP 

KLQINS 

/RELOCATABLE INSTRUCTION 

02421 

543646 


SAD 

(4 

02422 

602452 


JMP 

CONST 

/A CONSTANT 

02423 

543653 


SAD 

(?) 


02424 

602454 


JMP 

AQPNTR 

/ADDRESS POINTER 

02425 

543703 


SAD 

(27 

02426 

602462 


JMP 

SA 

/STARTING address 

02427 

543704 


SAD 

(31) 


02430 

602466 


JMP 

BKMQPE 

/SET TO BANK RELOCATABLE 

02431 

543705 


SAD 

(32) 


02432 

602470 


JMP 

PGMQQE 

/set to page relocatable 

02433 

102527 


JMS 

GETWRP 


02434 

622414 


JMP* 

/ 

JMS 

INTPRT 


02435 

102527 

UDADD 

GETWRP 


02436 

343055 


TAD 

CLDADR 


02437 

043045 


PAC 

SLQADR 


02440 

622414 


JMP* 

J 

JNTPRT 


02441 

102527 

RUO INS 

f 

JMS 

GETWRP 


02442 

043056 

DAC 

INST 


02443 

203055 


UAC 

CLPADK 


02444 

503624 


AND 

PGQRBK 


02445 

503706 


AND 

(010000 


02446 

343056 


TAD 

INST 


02447 

063045 


DAC* 

SLDADK 


02450 

443045 


ISZ 

SLQAPR 


02451 

622414 


JMP* 

INTPRT 


02452 

102527 

CONST 

JMS 

GETWRP 


02453 

602447 


JMP 

/ 

JMS 

C0NST^3 


02454 

102527 

ADPNTR 

GET WRO 


02455 

043056 


DAC 

INST 


02456 

203055 


LAC 

CLOADR 


02457 

503707 


AND 

(070000 


02460 

343056 


TAD 

INST 


02461 

6 0 2 4 4 / 


JMP 

/ 

CONST 



/STARTING ADDRESS DEFINED By END STATEMENT 
/IT IS THE ADDRESS OF UODSW TO BE USED BY THE MONITOR, 
/ 


02462 

102527 

SA 

JMS 

GETWRP 

02463 

343055 


TAD 

CLDADK 

02464 

043061 


DAC 

SUNK' 

02465 

622361 


JMP* 

LOAD 


.EJECT 


PAGE 
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CHAINM 

SRC chain MODE 

operation system 

EXERCISER 

02466 

203710 

bkmqqe 

UAC 

$1777/) 


02467 

741000 


SKP 



02470 

2036,17 

PGMQPE 

LAC 

(7777? 


02471 

043624 


DAC 

PGORBK 


02472 

102527 


JMS 

GETWRD 


02473 

622414 


JMP* 

/ 

jNTPRf 


02474 

203711 

EDMSG 

LAC 

CENDMSG«1*400000 


024 75 

100460 


JMS 

TSIXBT 


02476 

100514 


JMS 

CRUF 


02477 

601463 


JMP 

/ 

CNTINU 


02500 

203712 

NOTH J M 

UAC 

(NOT jN**l + 400000 


02501 

100460 


JMS 

TSIXBT 


02502 

600120 


JMP 

GgTMON 


02503 

000000 

RRQT6 

f 

0 



02504 

742020 


RTR 



02505 

742020 


RTR 



02506 

742020 


RTR 



02507 

622503 


JMP* 

/ 

0 

HR0T6 


02510 

000000 

READBK 


/READ A BLOCK or TAPE INTO BUFFER 

02511 

700301 


KSF 



02512 

602516 


JMP 

» *4 


02513 

700312 


KR8 



02514 

543632 


SAD 

(203 


02515 

600120 


JMP 

/ 

LAC 

GETMON 


02516 

203043 


ST80K 


02517 

042613 


DAC 

BLKNUM 


02520 

443043 


IS? 

S T B L K 


02521 

203713 


LAC 

( P T B U F 1 


02522 

040017 


DAC 

vi 


02523 

777400 


LAW 

00 


02524 

043053 


DAC 

WOGNTK 


02525 

10260/ 


JMS 

READ 


02526 

622510 


JMP* 

/ 

0 

READBK 


02527 

000000 

GETWRD 



325,50 

220^17 


LAC* 

17 


02531 

043054 


DAC 

SfRG 


02532 

343046 


TAD 

CHKSUM 


02533 

043046 


PAG 

CHKSUM 


02534 

443053 


JSH 

WDCNTK 

/NEW BLOCK? 

02535 

741000 


SKP 


/NO 

02536 

102610 


JMS 

READBK 

/YES 

02537 

203054 


LAC 

ST RG 


02540 

622527 


JMP* 

GETWRD 





t EJECT 





page 
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CHAJNM 

SRC CHAIN MODE 

OPERATION SYSTEM EXERCISER 

02541 

000000 

WDPAJR 

0 

/word pair counter, interpret first 

02542 

503714 


AND 

(377000 /word of BLOCK 

02543 

744000 


OIL 


02544 

742020 


RTR 


02545 

742020 


RTR 


32546 

102503 


JMS 

RRQT6 

02547 

740031 


CM A 


02550 

343651 


TAD 

(1 

02551 

043052 


DAC 

WQCNTR 

02552 

203054 


LAC 

STRG 

02553 

503715 


AND 

(7 

02554 

543653 


SAD 

0 ) 

32555 

602560 


J M P 

, *3 

02556 

102527 


JMS 

GETWRU /WASTE PARITY WORD 

02557 

622541 


JMP# 

WDPAJR 

02560 

102527 


JMS 

GETWRU 

02561 

203046 


LAC 

CHKSUM 

02562 

741200 


SNA 


02563 

622361 


JMP# 

LOAD /EXIT BECAUSE EOF AND NO PARITY ERROR 

02564 

203716 


LAC 

( LDERM! *1*400000 

02565 

100460 


JMS 

TSJXBT 

02566 

203643 


LAC 

(Aal 

02567 

100460 


JMS 

TSJXBT 

02570 

203717 


LAC 

(LPERM2al 

02571 

100460 


JMS 

TSJXBT 

02572 

601473 


JMP 

y 

NXTPRG 



/SET UP 

ALL AP! 
/ 

TRAPS TO ERROR ENTRY 

02573 

000000 

SUAPJR 

/ 

0 


02574 

777740 


LAW 

*40 

02575 

043067 


DAC 

CNT 

02576 

203645 


LAC 

(40 

02577 

043062 


DAC 

LTEMP 

02600 

203720 


LAC 

(JMP ER40 

02601 

063062 


DAC# 

LTEMP" 

02602 

443062 


ISH 

LTEMP 

02603 

343676 


TAD 

(2) 

02604 

443067 


IS2 

CNT 

02605 

602601 


JMP 

i ® 4 

02606 

622573 


JMP* 

SUAPIR 




, EJECT 



o 


o 


RAGE 20 CHAJNM SRC CHAIN MODE OPERATION SYSTEM EXERCISER 


O 

O 


/DECTAPE READ routine, LOAD BLKNUM WITH DESIRED 
/BLOCK NUMBER, READ+2 JS WORD COUNT, REAO+3 IS 
/CURRENT ADDRESS-"!, A READ WITHOUT ERRORS WILL BE 
/TRIED THREE TIMES, THEN EXIT THE PROGRAM 
/ 


o 

o 


o 

02607 

000000 

READ 

0 




02610 

602616 


JMP 

i *6 


O 


02611 

777400 


I* AW 

«400 

/WORD COUNT 


o 

02612 

003110 


,dsa 

UTRUF-1 

/CURRENT ADDRESS *1 

O 

02613 

000000 

BLKNUM 

0 


/BLOCK NUMBER 


02614 

000000 

SRCH 

0 




o 

02613 

000000 

DTERCT 

0 



O 

02616 

777774 


LAW 

» 4 



02617 

042615 


DAC 

PTERCT 

/MAKE ERROR COUNTER 


o 

02620 

707555 


DTU + 10 




02621 

140030 


OZM 

30 


O 


02622 

203721 


LAC 

( SRCH 



o 

02623 

040031 


DAC 

31 


O 

02624 

203722 


LAC 

(061000 

/SEARCH REVERSE, NORMAL 


02625 

102670 

SRCH A 

JMS 

CO 



o 

02626 

741103 


SPA 



o 

02627 

602663 


JMP 

SRCHB 

/ENO ZONE? 


02630 

202614 


LAC 

SRCH 



o 

02631 

503723 


AMD 

(1777? 



02632 

740001 


cma 



o 


02633 

342613 


TAD 

BLKNUM 



o 

02634 

343664 


TAD 

(*2 



02635 

751100 


SPAICLA 



o 


32636 

602625 


JMP 

SRCMA 



o 

02637 

203673 


LAC 

(040000 

/CHANGE DIRECTION SIT 


02640 

102670 

SRCHC 

JMS 

00 

o 


02641 

741100 


SPA 





02642 

602700 


JMP 

PTERR 



o 

02643 

202614 


LAC 

SRCH 


o 


02644 

503723 


AND 

(1777) 




02645 

342613 


SAD 

BLKNUM 

/SEARCH FORWARD UNTIL 

o 

o 

02646 

602651 


JMP 

i *3 

/CORRECT BLOCK NUMBER APPEARS 


02647 

750000 


CLA 




02650 

602640 


JMP 

SRCHC 



o 




.EJECT 



o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 
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/SEARCH FORWARD COMPLETE NOW START READING 

/ 


02651 

202611 


L, AC 

READ*2 

0265? 2 

040030 


DAC 

30 

02653 

202612 


U AC 

READ+3 

02654 

040031 


DAC 

31 

02655 

203724 


I. AC 

(003000 

02656 

102670 


JMS 

gq 

02657 

741100 


SPA 


02660 

602700 


vIMP 

UTERR 

02661 

707555 


DTLA +10 


02662 

622607 


JMP* 

/ 

and 

RLAD 

02663 

503725 

srchb 

(100000 

0 26 6 4 

741200 


SNA 


02665 

602700 


JMP 

DTERR 

0 2666 

203726 


LAC 

(060000 

02667 

602640 


JMP 

/ 

0 

SRCHCr 

02670 

000000 

GO 


02671 

707544 


DTXA 


02672 

707573 


DTEFJDTHB 

02673 

751000 


SKPI'CLA 


02674 

622670 


J M P ** 

GQ 

02675 

707601 


qtqf 


02676 

602672 


JMP 

, »4 

02677 

622670 


*)MP» 

GQ 


.EJECT 


/CHANGE from search TO READ 


/END ZONE ERROR GQJNG BACKWARO 
/TURN AROUND. 


o 


o 
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CHAIMM 

SRC CHAJN MODE 

OPERATION SYSTEM EXERCISER 


o 

02700 

442615 

dterr isz 

dterct 

o 


02701 

602620 

JMP 

UTERCT+3 /TRY AGAIN 



02702 

600421 

jMP 

A2J, /RESIDENT MONITOR ERROR ROUTINE 


o 



/ 


o 




/entered by incorrect api entry from a device, 
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